home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
fscode.lha
/
Rexx
/
Spot
/
FSDecode.spot
next >
Wrap
Text File
|
1995-03-11
|
1KB
|
46 lines
/* FSDecode.spot written by Vincenzo Scarpa */
/* Install as 'FSDecode...' in the ARexx menu. */
address spot
options results
'ismessages'
if rc = 5 then do
'requestnotify "Use in message window only!"'
exit
end
call AddLib('rexxsupport.library',0,-30,0)
saveascii 't:spotfs.tmp' overwrite
if Open(in,'t:spotfs.tmp','r') then do
if checkfscoded(in)=1 then do
call close(in)
'requestpath title "Pick a directory" path "RAM:"'
if rc = 0 then do
dirname = result
olddir = pragma('d', dirname)
ADDRESS COMMAND 'FScode >NIL: t:spotfs.tmp'
call pragma('d', olddir)
'requestnotify "File decoded..."'
end
end
else do
call close(In)
'requestnotify "This message does not contain FSEncoded Data"'
end
call Delete('t:spotfs.tmp')
end
exit /* done here */
checkfscoded: procedure
PARSE ARG In
do while ~eof(in)
if word(readln(in),1)='!start' then
return 1
end
return 0